home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / Smear.ifx < prev    next >
Text File  |  1996-03-02  |  874b  |  45 lines
  1. /*
  2.  * $VER: Smear 1.00.00 (24.9.92)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Smear simulation, used in conjunction with StartWedge.ifx.
  8.  *
  9.  */
  10.  
  11. OPTIONS RESULTS
  12.  
  13. PARSE ARG cmd x y .
  14.  
  15. IF x = 2 THEN DO
  16.    /* only for free draw */
  17.    GetPointList
  18.    PARSE VAR RESULT.AREA le te re be
  19.    le = le - 4
  20.    te = te - 4
  21.    width = re-le+1 + 4
  22.    height = be-te+1 + 4
  23.    EdgeMode Normal
  24.    Blend 50
  25.    SaveUndo le te width height
  26.    BeginBar 'Smearing' RESULT.0
  27.    LockGui ; LockInput ; Redraw Off
  28.    DO i = 1 TO RESULT.0-1
  29.       UnlockGui Quiet ; Bar i ; LockGui
  30.       j = i+1
  31.       PARSE VAR RESULT.i x y
  32.       PARSE VAR RESULT.j nextx nexty
  33.       Scissors
  34.       Oval x y 4 4
  35.       Point nextx nexty
  36.       END
  37.    KillBrush
  38.    UnlockInput ; UnlockGui
  39.    EndBar
  40.    Blend 100
  41.    Redraw On ; Redraw le te width height
  42.    END
  43.  
  44. EXIT
  45.